home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-04-13 | 2.0 KB | 95 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="6"
- "COUNT"="5"
- "UIPATH 1"="Network\Security\General"
- "UIPATH 2"="Appearance\Explorer\Settings (Advanced)"
- "NAME"="Workgroup Security Options"
- "VERSION"="1.14"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Show "Entire Network" in My Network Places"
- "TEXT 2"="Show other workgroup-users in My Network Places"
- "TEXT 3"="Show "Connect/Disconnect drive" in Explorer"
- "TEXT 4"="Allow file sharing"
- "TEXT 5"="Allow printer sharing"
- "DESCRIPTION 1"="Some options to improve the security of your network."
- "DESCRIPTION 2"="Please note: On Win95/98/NT systems, "My Network Places" is called "Network Neighborhood."
- "AUTHOR"="Xteq Systems (CptSiskoX)"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
-
-
- sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Network\"
- sV1="NoEntireNetwork"
- sV2="NoWorkgroupContents"
- sP1andV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoNetConnectDisconnect"
- sV4="NoFileSharing"
- sV5="NoPrintSharing"
-
- Sub Plugin_Initialize
- i=RegReadValue(sP1&sV1)
- if i=0 or IsEmpty(i) then
- SetUIElement 1,true
- end if
-
- i=RegReadValue(sP1&sV2)
- if i=0 or IsEmpty(i) then
- SetUIElement 2,true
- end if
-
- i=RegReadValue(sP1andV3)
- if i=0 or IsEmpty(i) then
- SetUIElement 3,true
- end if
-
- i=RegReadValue(sP1&sV4)
- if i=0 or IsEmpty(i) then
- SetUIElement 4,true
- end if
-
- i=RegReadValue(sP1&sV5)
- if i=0 or IsEmpty(i) then
- SetUIElement 5,true
- end if
-
-
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub ae(val,Path)
- if val=true then
- Call RegWriteValue(path,1,2)
- else
- Call RegWriteValue(path,0,2)
- end if
- end Sub
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- Call ae(not b,sP1&sV1)
-
- b=GetUIElement(2)
- Call ae(not b,sP1&sV2)
-
- b=GetUIElement(3)
- Call ae(not b,sP1andV3)
-
- b=GetUIElement(4)
- Call ae(not b,sP1&sV4)
-
- b=GetUIElement(5)
- Call ae(not b,sP1&sV5)
-
- Restart
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-